Imports DAO
Imports DTO

Public Class Phong_Bus

    Inherits AbstractBUS

    Public Function LayBang() As DataTable

        'Kiem tra Business Rule neu co
        Dim dt As DataTable
        Dim pDao As New Phong_Dao()
        dt = pDao.LayBang()
        Return dt

    End Function

    Public Function LayDanhSach() As IList

        'Kiem tra Business Rule neu co
        Dim ds As IList
        Dim pDao As New Phong_Dao()
        ds = pDao.LayDanhSach()
        Return ds

    End Function

    Public Sub CapNhatBang(ByVal dt As DataTable)

        'Kiem tra Business Rule neu co
        Dim pDao As New Phong_Dao()
        pDao.CapNhatBang(dt)

    End Sub

    Public Function TimKiem(ByVal mp As Integer) As Phong_Dto

        'Kiem tra Business Rule neu co
        Dim pDto As Phong_Dto
        Dim pDao As New Phong_Dao()
        pDto = pDao.TimKiem(mp)
        Return pDto

    End Function
    Public Function TimKiemPHG(ByVal sp As Integer) As Phong_Dto

        'Kiem tra Business Rule neu co
        Dim pDto As Phong_Dto
        Dim pDao As New Phong_Dao()
        pDto = pDao.TimKiem_SP(sp)
        Return pDto

    End Function

    Public Sub Them(ByVal pDto As Phong_Dto)

        'Kiem tra Business Rule neu co
        Dim pDao As New Phong_Dao()
        pDao.Them(pDto)

    End Sub

    Public Sub Xoa(ByVal mp As Integer)

        'Kiem tra Business Rule neu co
        Dim pDao As New Phong_Dao()
        pDao.Xoa(mp)

    End Sub

    Public Sub Sua(ByVal pDto As Phong_Dto)

        'Kiem tra Business Rule neu co
        Dim pDao As New Phong_Dao()
        pDao.Sua(pDto)

    End Sub

    Public Function DSPhongRanh(ByVal mlp As Integer) As IList

        'Kiem tra Business Rule neu co
        Dim ds As IList
        Dim pDao As New Phong_Dao()
        ds = pDao.DSPhongRanh(mlp)
        Return ds

    End Function

    Public Function DSPhongBan(ByVal mlp As Integer) As IList

        'Kiem tra Business Rule neu co
        Dim ds As IList
        Dim pDao As New Phong_Dao()
        ds = pDao.DSPhongBan(mlp)
        Return ds

    End Function

End Class
